home *** CD-ROM | disk | FTP | other *** search
/ Inside Mac Games Volume 1 / Inside Mac Games Volume 1.iso / Shareware / Arcade / RoboWar / Tournament II / Shciro / Shciro
Encoding:
Text File  |  1991-02-04  |  2.1 KB  |  123 lines  |  [RobW/RWAR]
  1. #    robot Shciro
  2. #    Giles  26 December 1990
  3. #    written for the 16 January 1990 RoboWar
  4. #            Tournament.
  5. #   totally unready and submitted in shame.
  6. #   p.s. it takes the fun out of RoboWar to
  7. #   read other peoples source for innovations.
  8. #       So say I.
  9. #   Peace be with you...
  10.  
  11. -5 speedx' store
  12. -5 speedy' store
  13. #50 shield' store
  14.  
  15. main:
  16.     collision seek if
  17.     270 x < west if
  18.     270 y < north if
  19.     aim 71 + aim' store
  20.     range bang if
  21.     30 x > east if
  22.     30 y > south if
  23.     collision seek if
  24.     10 shield' store
  25.     aim 73 + aim' store
  26.     range bang if
  27.     main jump
  28.  
  29. bang:
  30.     energy fire' store
  31.     range bang1 if
  32.     return
  33. bang1:
  34.     energy fire' store
  35.     range bang2 if
  36.     drop return
  37. bang2:
  38.     energy fire' store
  39.     drop drop
  40.     return
  41.  
  42. west:
  43.     0 speedx' store
  44.     0 aim' store
  45.     range bang if
  46.     180 aim' store
  47.     collision seek if
  48.     range bang if
  49.     -2 speedx' store
  50.     return
  51. east:
  52.     0 speedx' store
  53.     0 aim' store
  54.     range bang if
  55.     180 aim' store
  56.     collision seek if
  57.     range bang if
  58.     3 speedx' store
  59.     return
  60. south:
  61.     0 speedy' store
  62.     90 aim' store
  63.     range bang if
  64.     270 aim' store
  65.     collision seek if
  66.     range bang if
  67.     3 speedy' store
  68.     return
  69. north:
  70.     0 speedy' store
  71.     90 aim' store
  72.     range bang if
  73.     270 aim' store
  74.     collision seek if
  75.     range bang if
  76.     -3 speedy' store
  77.     return
  78.  
  79. seek:
  80.     30 aim' store
  81.     range destroy if
  82.     60 aim' store
  83.     range destroy if
  84.     90 aim' store
  85.     range destroy if
  86.     120 aim' store
  87.     range destroy if
  88.     150 aim' store
  89.     range destroy if
  90.     180 aim' store
  91.     range destroy if
  92.     210 aim' store
  93.     range destroy if
  94.     240 aim' store
  95.     range destroy if
  96.     270 aim' store
  97.     range destroy if
  98.     300 aim' store
  99.     range destroy if
  100.     330 aim' store
  101.     range destroy if
  102.     0 aim' store
  103.     range destroy if
  104.     drop
  105.     main jump
  106.  
  107. bounce:
  108.     15 movex' store
  109.     0 shield' store
  110.     collision bounceAgain if
  111.     return
  112. bounceAgain:
  113.     -15 movey' store
  114.     drop drop
  115.     main jump
  116.  
  117. destroy:
  118.     energy fire' store
  119.     100 fire' store
  120.     drop
  121.     drop
  122.     main jump
  123.